EnigmA Amiga Run 1997 July/EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso/earcd/biz/swood/fw_mef_e.lha/FW_MEf-e/ISeveral.fw.long

Text File | 1997-04-27 | 5KB | 235 lines

/* ============================================ */
/* Final Writer Arexx Macro - Mehrfach Einfügen */
/* This macro will duplicate any selected       */
/* graphic objects. (group or ungroup)          */
/* by Heiko Schröder (Age Ass)                  */
/* $VER: Insert Several 1.5 (97/04/27)          */
/* DocItemPrefs Abfrage                         */
/* ============================================ */
R='0A'X
Dre=0
Sei=0

Address='FinalW'
Options results

STATUS PORTNAME
FW = result
address = FW

SIGNAL ON BREAK_C
SIGNAL ON SYNTAX

'ShowMessage 2 1 "Insert Several V1.5e - 97/04/27" "© Heiko Schroeder" "E-Mail: [e-mail]" "(-:" "Ok" "(-:"'

GetDocItemPrefs Decimal
Punkt=Result
If Punkt="Comma" then DocItemPrefs Decimal Period

GraphicTool
nr=1
CurrentObject
ObjectId = Result
IF ObjectId=0 THEN do
   'ShowMessage 1 1 "Macro: Insert Several" "A B O R T" "No graphical object selected..." "Okay" "" ""'
   Call BREAK_C
End

/*Kontrolle ob ein oder mehrere Objekte ausgewählt sind*/

Objekt.0=nr; Objekt.nr=ObjectID
FirstObject Selected
ID=result
Call Zaehlen
Do While 1
   NextObject ID Selected
   ID=result
   If ID=0 then Leave
   Call Zaehlen
End

If Objekt.0=1 then do
   gruppe=false
end
else gruppe=true

Do a=2 to Objekt.0
   SelectObject Objekt.a MULTIPLE
End
SelectObject Objekt.1 MULTIPLE
/*Ende der Kontrolle*/

STATUS View
Zoom=result

STATUS Pages
Seiten=result

STATUS Page
Seite=result

If Gruppe=true then Group

Copy
IF RC=0 THEN do
   CurrentObject
   ObjectID=result
   GetObjectCoords ObjectID
   Parse var result Seite x y w h
   wl=w
   hl=h
   GetObjectRotation ObjectID
   Dreh=result
   GetObjectType ObjectID
   Typ=result

   If Typ=2|Typ=3 then do
      If Seite~=1 then do
         'ShowMessage 1 1 "FW has problems with lines outside" "the page 1... CANCEL" "" "Okay" "" ""'
         Call BREAK_C
      End
   End
   If Gruppe=true then Ungroup

   'ShowMessage 1 0 "Screen output?" "" "" "normal" "speed" ""'
   ba=result

   IF ba=2 THEN DO
      status WINDOW
      parse VAR result links oben width height minwidth minheight maxwidth maxheight
      sizewindow minwidth minheight
   End

   Do While 1
      Result="ß"
      RequestText '"Insert Several" "Number of copies" ""'
      Anzahl=Result
      If Anzahl="ß" then call Ende1
      If Anzahl=""|Anzahl=0 then call Ende
      If Datatype(Anzahl,'W')=1 then leave
            else call oops
   End

   Do while 1
      Result="ß"
      RequestText '"Insert Several" "Horizontal displacement:" ""'
      Hor=Result
      If Hor="ß" then call Ende1
      If Hor="" then Hor=0
      If Datatype(Hor,'N')=1 then leave
            else call oops1
   End

   Do while 1
      Result="ß"
      RequestText '"Insert Several" "Vertical displacement:" ""'
      Ver=Result
      If Ver="ß" then call Ende1
      If Ver="" then Ver=0
      If Datatype(Ver,'N')=1 then leave
            else call oops1
   End

   If Typ~=2&Typ~=3 then do                     /*Linien*/
      Do while 1
         Result="ß"
         RequestText '"Insert Several" "Rotation:" ""'
         Dre=Result
         If Dre="ß" then call Ende1
         If Dre="" then Dre=0
         If Datatype(Dre,'W')=1 then leave
            else call oops
      End

      Do While 1
         Result="ß"
         RequestText '"Insert Several" "On which page? 0=selected page" ""'
         Sei=Result
         If Sei="ß" then call Ende1
         If Sei=""|Sei=0 then Sei=Seite
         If Datatype(Sei,'W')=1 then leave
            else call oops
      End
   end

   s=Sei-Seiten

   Do a=1 to s
      InsertPageBreak
   End

   If ba=2 then View 20
   Do i=1 TO Anzahl
      Paste
      CurrentObject
      ObjectID=Result
      a=x+(Hor*i)
      b=y+(Ver*i)
      Winkel=Dreh+Dre*i
      If Typ=2|Typ=3 then do                     /*Linien*/
         w=wl+(Hor*i)
         h=hl+(Ver*i)
         Sei=Seite
      End
      SetObjectCoords ObjectID Sei a b w h    /*Probleme bei Linien*/
      SetObjectRotation ObjectID Winkel
      If Gruppe=true then Ungroup
   End
End
Redraw

Call WH

'ShowMessage 2 1 "Thanks for using." "" "" "@-`-" "Please" ":-))"'
Exit

ENDE:
   Call WH
   'ShowMessage 1 1 "Incorrect number of copies..." "A B O R T" "" "Okay" "" ""'
   EXIT

ENDE1:
   Call WH
   'ShowMessage 1 1 "You have cancelled..." "© Heiko Schröder" "http://yi.com/home/SchroederHeiko" "Okay" "" ""'
   EXIT

SYNTAX:
   Call WH
   'ShowMessage 1 1 "There was an error." "Error-identification you can find in »Ram:Error«" "" "Okay" "" ""'
   address "REXX"
   Open("F","Ram:Error","W")
   write ("F", "ATTENTION! FW_MEf V1.5e-Error")
   write ("F",'Error in line' SIGL ':' ERRORTEXT(RC))
   write ("F", 'Please report the author. » [e-mail] «'||R||R)
   Close ("F")
EXIT

BREAK_C:
   Call WH
   'ShowMessage 1 1 "Macro-Break..." "" "" "I know..." "" ""'
   EXIT

WH:
   If ba=2 then do
      GoToPage Sei
      View Zoom
      sizewindow width height
   End
   If Punkt="Comma" then DocItemPrefs DECIMAL Comma
Return

Zaehlen:
If ID~=Objekt.1 then do
   nr=nr+1
   Objekt.0=nr; Objekt.nr=ID
End
Return

oops:
'ShowMessage 1 1 "Input error!" "" "" "Okay" "" ""'
return

oops1:
'ShowMessage 1 1 "Input error!" "Please use (.) !" "" "Okay" "" ""'
return